home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 1 / LSD Compendium Deluxe 1.iso / a / programming / assembly / dskhrdldr.lha / TrackerRunner.s < prev   
Encoding:
Text File  |  1980-01-12  |  6.4 KB  |  352 lines
  1. ; Hard-Trackdisk Example Routine - Loads sectors 880 to 883 off drive 0
  2. ; into $c0000 with an MFM buffer at $f0000
  3. ; 
  4. ; No interrupts/exceptions are interfered with, and code is fully multi-
  5. ; taskable (within a Hardware or System based program)
  6. ;
  7. ; This is not an interupt-driven routine. nor will it ever be, i couldn't
  8. ; be fucked to do it...  but wait n'see,  i may have something sticky up
  9. ; my sleeve.
  10. ;
  11. ; Coded by psyKo, extreme hassle and lots of time have gone into this fucker
  12. ; so i hope you spread 4 all 2 c..          (retro corp production, 19/5/93)
  13.  
  14. ; Note:  This is the new-improved meatier/chunkier version..
  15. ; New control codes for the NuTrakker Segment are:
  16.  
  17. ; d0 = 0   -   Find available drives
  18. ; d0 = 1   -   (new function)  Reset drive (d1=drive) head to track zero
  19. ; d0 = 2   -   Read Sectors
  20.  
  21. ; The Zero Head function you should use before you load a set of sectors,
  22. ; NOTE:  you dont have to do it every time you access the disk, just use
  23. ; it in initialization, and after a disk-change, or before a mass-multiple
  24. ; sector read (several Trakker Read Calls)...  i hope it worx
  25.  
  26. ; FINAL manufacture by Mr. Spillage 21-5-93
  27.  
  28.     Opt    c-
  29.     Section    "HardNuTrackDisk Example",Code_c
  30.  
  31.     IncDir    Df1:
  32.  
  33. Drive    = 1
  34.  
  35. Start    Movem.l    d0-d7/a0-a6,-(sp) 
  36.     Bsr    KillSys      
  37.     
  38.     Lea    CopperList(pc),a0 
  39.     Lea    HardWare,a6      
  40.     Move.l    a0,Cop1Lc(a6)      
  41.     Move.w    #$83c0,DMACon(a6)
  42.  
  43. *****************************************************************************
  44.  
  45.     Moveq    #0,d0    ; Setup Code
  46.     Bsr    TrackDisk+$20    ; Find Active Drives    
  47.  
  48. ; d0 - is returned with active disk drives, bits 0-3 represent drives 0-3
  49.  
  50. *****************************************************************************
  51.  
  52.     Moveq    #1,d0    ; Zero Head Code
  53.     Moveq    #Drive,d1    ; Zero drive number
  54.     Bsr    TrackDisk+$20    ; Reset Track.
  55.     
  56.     Moveq    #2,d0    ; Read Sector Code
  57.     Moveq    #Drive,d1    ; Drive Number
  58.     Move.w    #880,d2    ; Start Sector 880
  59.     Move.w    #883,d3    ; End Sector 883
  60.     Lea    $c5000,a0    ; Data Address
  61.     Lea    $f0000,a1    ; MFM Buffer pointer
  62.     Bsr    TrackDisk+$20    ; Read Sectors
  63.  
  64.     Moveq    #2,d0    ; Read Sector Code
  65.     Moveq    #Drive,d1    ; Drive Number
  66.     Move.w    #0,d2    ; Start Sector 0
  67.     Move.w    #3,d3    ; End Sector 3
  68.     Lea    $c5800,a0    ; Data Address
  69.     Lea    $f0000,a1    ; MFM Buffer pointer
  70.     Bsr    TrackDisk+$20    ; Read Sectors
  71.  
  72.     Moveq    #2,d0    ; Read Sector Code
  73.     Moveq    #Drive,d1    ; Drive Number
  74.     Move.w    #1400,d2    ; Start Sector 0
  75.     Move.w    #1403,d3    ; End Sector 3
  76.     Lea    $c5c00,a0    ; Data Address
  77.     Lea    $f0000,a1    ; MFM Buffer pointer
  78.     Bsr    TrackDisk+$20    ; Read Sectors
  79.  
  80. ; read those fucking sectors in from 880 to 883 off drive 1, fucking less
  81. ; hassle than fucking trackdisk.device, and no fucking Amiga fucking DOS
  82. ; to share your disgusting fucking memory fucking with...
  83.  
  84. *****************************************************************************
  85.  
  86. ; pleese, just dont ask why i'm fucking pissed off..
  87.  
  88.     Bsr    ReturnSys      
  89.     Movem.l    (sp)+,d0-d7/a0-a6 
  90.     Moveq    #0,d0      
  91.     Rts
  92.  
  93. KillSys    Bsr.s    SysWait    
  94.  
  95.     Move.l    $4,a6    
  96.     Lea    GFXName(pc),a1    
  97.     Moveq    #0,d0    
  98.     Jsr    -552(a6)    
  99.         
  100.     Lea    OldCop1(pc),a5
  101.     Move.l    $26(a0),$0(a5)    
  102.     Move.l    $32(a0),$4(a5)    
  103.     
  104.     Lea    HardWare,a6
  105.     Move.w    IntEnaR(a6),d0    
  106.     Move.w    DMAConR(a6),d1  
  107.     Or.w    #$8000,d0    
  108.     And.w    #$03ff,d1    
  109.     Or.w    #$8000,d1    
  110.     Move.w    d0,$8(a5)    
  111.     Move.w    d1,$a(a5)    
  112.     
  113.     Move.w    #$7fff,IntEna(a6) 
  114.     Move.w    #$7fff,DMACon(a6) 
  115.     Rts
  116.  
  117. SysWait    Move.w    #15,d7    
  118. SysWaitLoop    Move.l    #$05000,d1    
  119.     Bsr.s    WaitVBL    
  120.     Bsr.s    DoWaitVBL    
  121.     Dbf    d7,SysWaitLoop    
  122.     Rts
  123.  
  124. DoWaitVBL    Move.l    #$03000,d1    
  125. WaitVBL    Movem.l    d0-d1/a6,-(sp)    
  126.     Lea    HardWare,a6    
  127. WaitVBLLoop    Move.l    VPosR(a6),d0    
  128.     And.l    #$1ff00,d0    
  129.     Cmp.l    d1,d0    
  130.     Bne.s    WaitVBLLoop    
  131.     Movem.l    (sp)+,d0-d1/a6    
  132.     Rts        
  133.  
  134. ReturnSys    Lea    HardWare,a6    
  135.     Move.w    OldIntEna(pc),IntEna(a6)
  136.     Move.w    OldDMACon(pc),DMACon(a6)
  137.     Move.l    OldCop1(pc),Cop1lc(a6)
  138.     Move.l    OldCop2(pc),Cop2lc(a6)
  139.     Rts
  140.  
  141. GFXName    Dc.b    "graphics.library",0
  142.     Even
  143. OldCop1    Dc.l    0    
  144. OldCop2    Dc.l    0    
  145. OldIntEna    Dc.w    0    
  146. OldDmaCon    Dc.w    0    
  147. Screen    Dc.l    $c0000    
  148.  
  149. Cmv    Macro
  150.     Dc.w    \2,\1
  151.     EndM
  152.     
  153. Cwt    Macro
  154.     Dc.w    (\1*$100)+$01,$fffe
  155.     EndM    
  156.  
  157. Pal    Macro
  158.     Dc.w    $ffe1,$fffe
  159.     EndM    
  160.  
  161. EndCop    Macro
  162.     Dc.w    $ffff,$fffe
  163.     EndM    
  164.  
  165. CopperList    Cwt    $15    
  166.     Cmv    $0200,BplCon0    
  167.     Cmv    $00bb,BplCon1    
  168.     Cmv    $000a,BplCon2    
  169.     Cmv    $0034,DdfStrt    
  170.     Cmv    $00c8,DdfStop    
  171.     Cmv    $1681,DiwStrt    
  172.     Cmv    $36c1,DiwStop
  173.     Cmv    $0,BplMod1    
  174.     Cmv    $0,BplMod2    
  175.     
  176. CopperCols    Cwt    $25        
  177.     Cmv    $0,Color00
  178.     Cmv    $0,Color01
  179.     Cmv    $0,Color02
  180.     Cmv    $0,Color03
  181.     Cmv    $0,Color04
  182.     Cmv    $0,Color05
  183.     Cmv    $0,Color06
  184.     Cmv    $0,Color07
  185.     Cmv    $0,Color08
  186.     Cmv    $0,Color09
  187.     Cmv    $0,Color10
  188.     Cmv    $0,Color11
  189.     Cmv    $0,Color12
  190.     Cmv    $0,Color13
  191.     Cmv    $0,Color14
  192.     Cmv    $0,Color15
  193.     Cmv    $0,Color16
  194.     Cmv    $0,Color17
  195.     Cmv    $0,Color18
  196.     Cmv    $0,Color19
  197.     Cmv    $0,Color20
  198.     Cmv    $0,Color21
  199.     Cmv    $0,Color22
  200.     Cmv    $0,Color23
  201.     Cmv    $0,Color24
  202.     Cmv    $0,Color25
  203.     Cmv    $0,Color26
  204.     Cmv    $0,Color27
  205.     Cmv    $0,Color28
  206.     Cmv    $0,Color29
  207.     Cmv    $0,Color30
  208.     Cmv    $0,Color31
  209.     
  210. CopperBPLS    Cmv    $c,BplPt0h    
  211.     Cmv    $0,BplPt0l    
  212.     Cmv    $0,BplPt1h    
  213.     Cmv    $0,BplPt1l    
  214.     Cmv    $0,BplPt2h    
  215.     Cmv    $0,BplPt2l    
  216.     Cmv    $0,BplPt3h    
  217.     Cmv    $0,BplPt3l    
  218.     Cmv    $0,BplPt4h
  219.     Cmv    $0,BplPt4l 
  220.     
  221.     Cwt    $28    
  222.     Cmv    $1200,BplCon0    
  223.  
  224.     EndCop
  225.  
  226. TrackDisk    Incbin    MyMateMarmite/NuTrakkerFINAL-Seg
  227.  
  228. ****Custom Chip Registers****
  229.  
  230. Hardware    = $Dff000
  231.  
  232. ;Control Registers
  233.  
  234. Dmaconr    = $002
  235. Vposr    = $004
  236. Vhposr    = $006
  237. Joy0dat    = $00A
  238. Joy1dat    = $00C
  239. Clxdat    = $00E
  240. Intenar    = $01C
  241. Intereqr    = $01E
  242. Copcon    = $02E
  243.  
  244. ;Blitter Registers
  245.  
  246. Bltcon0    = $040
  247. Bltcon1    = $042
  248. Bltafwm    = $044
  249. Bltalwm    = $046
  250. Bltcpth    = $048
  251. Bltcptl    = $04A
  252. Bltbpth    = $04C
  253. Bltbptl    = $04E
  254. Bltapth    = $050
  255. Bltaptl    = $052
  256. Bltdpth    = $054
  257. Bltdptl    = $056
  258. Bltsize    = $058
  259. Bltcmod    = $060
  260. Bltbmod    = $062
  261. Bltamod    = $064
  262. Bltdmod    = $066
  263. Bltcdat    = $070
  264. Bltbdat    = $072
  265. Bltadat    = $074
  266.  
  267. ;Copper Registers
  268.  
  269. Cop1lc    = $080
  270. Cop1lch    = $080
  271. Cop1lcl    = $082
  272. Cop2lc    = $084
  273. Cop2lch    = $084
  274. Cop2lcl    = $086
  275. Copjmp1    = $088
  276. Copjmp2    = $08A
  277. Diwstrt    = $08E
  278. Diwstop    = $090
  279. Ddfstrt    = $092
  280. Ddfstop    = $094
  281. Dmacon    = $096
  282. Clxcon    = $098
  283. Intena    = $09A
  284. Intreq    = $09C
  285.  
  286. ;BitPlane Registers 
  287.  
  288. BplCon0    = $100
  289. BplCon1    = $102
  290. BplCon2    = $104
  291. BplMod1    = $108
  292. BplMod2    = $10a
  293.  
  294. BplPt0h    = $0e0
  295. BplPt0l    = $0e2
  296. BplPt1h    = $0e4
  297. BplPt1l    = $0e6
  298. BplPt2h    = $0e8
  299. BplPt2l    = $0ea
  300. BplPt3h    = $0ec
  301. BplPt3l    = $0ee
  302. BplPt4h    = $0f0
  303. BplPt4l    = $0f2
  304. BplPt5h    = $0f4
  305. BplPt5l    = $0f6
  306.  
  307. ;Colour Registers
  308.  
  309. Color00    = $180
  310. Color01    = $182
  311. Color02    = $184
  312. Color03    = $186
  313. Color04    = $188
  314. Color05    = $18a
  315. Color06    = $18c
  316. Color07    = $18e
  317. Color08    = $190
  318. Color09    = $192
  319. Color10    = $194
  320. Color11    = $196
  321. Color12    = $198
  322. Color13     = $19a
  323. Color14     = $19c
  324. Color15     = $19e
  325. Color16     = $1a0
  326. Color17     = $1a2
  327. Color18     = $1a4
  328. Color19     = $1a6
  329. Color20     = $1a8
  330. Color21     = $1aa
  331. Color22     = $1ac
  332. Color23     = $1ae
  333. Color24     = $1b0
  334. Color25     = $1b2
  335. Color26     = $1b4
  336. Color27     = $1b6
  337. Color28     = $1b8
  338. Color29     = $1ba
  339. Color30     = $1bc
  340. Color31     = $1be
  341.  
  342. EcsNop    = $1fe
  343.  
  344.  
  345.  
  346.  
  347.  
  348.  
  349.  
  350.  
  351.  
  352.